#########################################################################################
# Description:  Test script to run via doscript
# Created       Tue Mar 30 06:49:38 2010
# svn id        $Id: testmultiple.pl 3 2010-03-30 08:41:28Z mark.dootson $
# Copyright:    Copyright (c) 2010 Mark Dootson
# Licence:      This program is free software; you can redistribute it 
#               and/or modify it under the same terms as Perl itself
#########################################################################################

use strict;
use warnings;

my @params = @ARGV;


for (my $i = 0; $i < 1000; $i ++) {
    print qq(The current number is $i);
}
#line 1
warn 'Test Multiple Completed';

1;
